﻿Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.Handlers
Imports StartFrame.BR.Web.Mantenimiento.Articulos

Namespace Handlers.Mantenimiento.Listados

    Public Class Precios
        Inherits GLPBaseHandler

        Public Overrides Sub InicializarDatos()
            MyBase.InicializarDatos()
            _Abm = New StartFrame.BR.Web.Mantenimiento.Listados.XRListPrecio
            _Pagina = "~/UserPages/Mantenimiento/Listados/Precios.js"
        End Sub

        Public Sub ExportaraPDF()
            _Context.Response.Clear()
            _Context.Response.ClearHeaders()
            _Context.Response.ClearContent()
            _Context.Response.AddHeader("content-disposition", "attachment; filename=" + Me._RequestData("fileName") + ".pdf")
            _Context.Response.AddHeader("Content-Type", "application/PDF")
            _Context.Response.ContentType = "application/vnd.xls"
            CType(_Abm, StartFrame.BR.Web.Mantenimiento.Listados.XRListPrecio).ExportaraPDF(_Context.Response.OutputStream)
        End Sub
    End Class
End Namespace